/* idhw.t  idh_hist Invoiced Lines Write Trigger                              */
/*Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                         */
/*All rights reserved worldwide.  This is an unpublished work.                */
/* $Revision: 1.3 $                                                           */
/*V8:ConvertMode=NoConvert                                                    */
/******************************************************************************/
/* Revision: 1.1        BY: Jean Miller          DATE: 06/06/02  ECO: *P07T*  */
/* Revision: 1.2        BY: Jean Miller          DATE: 06/13/02  ECO: *P082*  */
/* $Revision: 1.3 $     BY: Jean Miller          DATE: 08/01/02  ECO: *P0CL*  */
/******************************************************************************/

TRIGGER PROCEDURE FOR WRITE OF idh_hist OLD BUFFER old_idh_hist.

{mfdeclre.i}

/* Track Capacity Units */
if new idh_hist and
  (old_idh_hist.idh_inv_nbr <> idh_hist.idh_inv_nbr  or
   old_idh_hist.idh_nbr     <> idh_hist.idh_nbr      or
   old_idh_hist.idh_line    <> idh_hist.idh_line)
then do:
   {lvucap.i &TABLE="idh_hist" &QUALIFIER=""""}
end.
